local ALLC BANGLADESH INDIA INDONESIA PAKISTAN VIETNAM  ETHIOPIA 
foreach x of local ALLC {
    local short_list: subinstr local ALLC "`x'" ""
    foreach c of local short_list{
 capture drop pc_`c'
 capture drop pc_`x'
xtile pc_`x' = SD_sourcing_bjc`x' , nq(100)
xtile pc_`c' = SD_sourcing_bjc`c' , nq(100)

binscatter pc_`x' pc_`c', absorb(HS6_num) ///
msymbol(oh) mcolor(black) lcolor(gray)  graphregion(color(white)) ylab(,nogrid) ytitle("`x'", size(vhuge)) ///
 xtitle("`c'", size(vhuge)) xlabel(, labsize(medsmall)) ylabel(, labsize(medsmall)) reportreg 

graph export "${figures}\Figure1_`x'_`c'.pdf" , as(pdf) replace
	
}
}